How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act3/00332.ls

Text File | 1995-03-28 | 686 b | 16 lines

on crumpet
  set buggrid to [[0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 1, 1, 1, 1, 1, 0, 0], [0, 0, 1, 1, 1, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
  repeat with yyy = 1 to 7
    repeat with xxx = 1 to 10
      set the locH of sprite (4 + xxx) to (xxx * 64) - 32
      set the locV of sprite (4 + xxx) to (yyy * 50) - 25
      set the castNum of sprite (4 + xxx) to the number of cast ("run" & getAt(getAt(buggrid, yyy), xxx))
    end repeat
    updateStage()
    set ptime to the timer
    repeat while (the timer - ptime) < 60
      updateStage()
    end repeat
  end repeat
end